perm filename TEST.CNV[1,JRA] blob
sn#011361 filedate 1972-11-11 generic text, type T, neo UTF8
00100 (ADD @(VICIOUS NIXON))
00200 (ADD @(DWARF SPIRO))
00300 (ADD @(DWARF DORK))
00400 (ADD (IF-NEEDED VD(VICIOUS (!? X))
00500 ⊗AUX⊗(X P)(CSETQ P(FETCH @(DWARF (! X))))
00600 (: LOOP)(TRY-NEXT P @(ADIEU))
00650 (PRINT P)(PRIN1 @ (IS P))
00700 (AU-REVOIR(INSTANCE))
00800 (GO @LOOP)))
00900
01000 (CDEFUN BITE-ME ()
01100 ⊗AUX⊗(ZZ )
01200 (CSETQ XX(FETCH @(VICIOUS (! ZZ))) )(PRINT (TRY-NEXT XX))(PRINT(TRY-NEXT XX)))
01400 (BITE-ME)
01500